|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! ######### 00002 SUBROUTINE WRITESURF_DUMMY_n(HPROGRAM) 00003 ! ########################################## 00004 ! 00005 !!**** *WRITESURF_DUMMY_n* - routine to write dummy surface fields 00006 !! 00007 !! PURPOSE 00008 !! ------- 00009 !! 00010 !! AUTHOR 00011 !! ------ 00012 !! V. Masson *Meteo France* 00013 !! 00014 !! MODIFICATIONS 00015 !! ------------- 00016 !! Original 03/2004 00017 !------------------------------------------------------------------------------- 00018 ! 00019 !* 0. DECLARATIONS 00020 ! ------------ 00021 ! 00022 USE MODD_DUMMY_SURF_FIELDS_n, ONLY : NDUMMY_NBR, CDUMMY_NAME, & 00023 CDUMMY_AREA, XDUMMY_FIELDS 00024 ! 00025 USE MODI_WRITE_SURF 00026 ! 00027 ! 00028 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK 00029 USE PARKIND1 ,ONLY : JPRB 00030 ! 00031 IMPLICIT NONE 00032 ! 00033 !* 0.1 Declarations of arguments 00034 ! ------------------------- 00035 ! 00036 CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! 00037 ! 00038 !* 0.2 Declarations of local variables 00039 ! ------------------------------- 00040 ! 00041 INTEGER :: JDUMMY ! loop counter 00042 ! 00043 CHARACTER(LEN=20 ):: YSTRING20 ! string 00044 CHARACTER(LEN=3 ):: YSTRING03 ! string 00045 ! 00046 INTEGER :: IRESP ! IRESP : return-code if a problem appears 00047 CHARACTER(LEN=12) :: YRECFM ! Name of the article to be read 00048 CHARACTER(LEN=100):: YCOMMENT ! Comment string 00049 REAL(KIND=JPRB) :: ZHOOK_HANDLE 00050 ! 00051 !------------------------------------------------------------------------------- 00052 ! 00053 !* 1. Number of dummy fields : 00054 ! ---------------------- 00055 ! 00056 IF (LHOOK) CALL DR_HOOK('WRITESURF_DUMMY_N',0,ZHOOK_HANDLE) 00057 YRECFM='DUMMY_GR_NBR' 00058 YCOMMENT=' ' 00059 ! 00060 CALL WRITE_SURF(HPROGRAM,YRECFM,NDUMMY_NBR,IRESP,HCOMMENT=YCOMMENT) 00061 ! 00062 !------------------------------------------------------------------------------- 00063 ! 00064 !* 2. Dummy fields : 00065 ! ------------ 00066 ! 00067 DO JDUMMY=1,NDUMMY_NBR 00068 ! 00069 WRITE(YRECFM,'(A8,I3.3,A5)') 'DUMMY_GR',JDUMMY,' ' 00070 YSTRING20=CDUMMY_NAME(JDUMMY) 00071 YSTRING03=CDUMMY_AREA(JDUMMY) 00072 YCOMMENT='X_Y_'//YRECFM//YSTRING20//YSTRING03// & 00073 ' ' 00074 CALL WRITE_SURF(HPROGRAM,YRECFM,XDUMMY_FIELDS(:,JDUMMY),IRESP,HCOMMENT=YCOMMENT) 00075 END DO 00076 IF (LHOOK) CALL DR_HOOK('WRITESURF_DUMMY_N',1,ZHOOK_HANDLE) 00077 ! 00078 !------------------------------------------------------------------------------- 00079 ! 00080 END SUBROUTINE WRITESURF_DUMMY_n
1.8.0
