|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! ######### 00002 SUBROUTINE WRITESURF_PGD_SEAF_PAR_n(HPROGRAM) 00003 ! ################################################ 00004 ! 00005 !!**** *WRITESURF_PGD_SEAF_PAR_n* - writes SEAFLUX sst 00006 !! 00007 !! 00008 !! PURPOSE 00009 !! ------- 00010 !! 00011 !!** METHOD 00012 !! ------ 00013 !! 00014 !! EXTERNAL 00015 !! -------- 00016 !! 00017 !! 00018 !! IMPLICIT ARGUMENTS 00019 !! ------------------ 00020 !! 00021 !! REFERENCE 00022 !! --------- 00023 !! 00024 !! 00025 !! AUTHOR 00026 !! ------ 00027 !! P. Le Moigne *Meteo France* 00028 !! 00029 !! MODIFICATIONS 00030 !! ------------- 00031 !! Original 09/2007 00032 !------------------------------------------------------------------------------- 00033 ! 00034 !* 0. DECLARATIONS 00035 ! ------------ 00036 ! 00037 USE MODD_TYPE_DATE_SURF 00038 USE MODD_DATA_SEAFLUX_n, ONLY : NTIME, XDATA_SST, TDATA_SST 00039 ! 00040 USE MODI_WRITE_SURF 00041 ! 00042 ! 00043 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK 00044 USE PARKIND1 ,ONLY : JPRB 00045 ! 00046 IMPLICIT NONE 00047 ! 00048 !* 0.1 Declarations of arguments 00049 ! ------------------------- 00050 ! 00051 CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling 00052 ! 00053 !* 0.2 Declarations of local variables 00054 ! ------------------------------- 00055 ! 00056 INTEGER :: IRESP ! IRESP : return-code if a problem appears 00057 CHARACTER(LEN=12) :: YRECFM ! Name of the article to be read 00058 CHARACTER(LEN=100):: YCOMMENT ! Comment string 00059 INTEGER :: JTIME ! loop index 00060 REAL(KIND=JPRB) :: ZHOOK_HANDLE 00061 ! 00062 ! 00063 !------------------------------------------------------------------------------- 00064 ! 00065 IF (LHOOK) CALL DR_HOOK('WRITESURF_PGD_SEAF_PAR_N',0,ZHOOK_HANDLE) 00066 NTIME = SIZE(XDATA_SST,2) 00067 YRECFM='ND_SEA_TIME' 00068 YCOMMENT='(-)' 00069 CALL WRITE_SURF(HPROGRAM,YRECFM,NTIME,IRESP,HCOMMENT=YCOMMENT) 00070 ! 00071 DO JTIME=1,NTIME 00072 WRITE(YRECFM,FMT='(A7,I3.3)') 'D_SST_T',JTIME 00073 YCOMMENT='X_Y_DATA_SST' 00074 CALL WRITE_SURF(HPROGRAM,YRECFM,XDATA_SST(:,JTIME),IRESP,HCOMMENT=YCOMMENT) 00075 END DO 00076 ! 00077 YRECFM='TDATA_SST' 00078 YCOMMENT='(-)' 00079 CALL WRITE_SURF(HPROGRAM,YRECFM,TDATA_SST,IRESP,HCOMMENT=YCOMMENT) 00080 IF (LHOOK) CALL DR_HOOK('WRITESURF_PGD_SEAF_PAR_N',1,ZHOOK_HANDLE) 00081 ! 00082 !------------------------------------------------------------------------------- 00083 ! 00084 END SUBROUTINE WRITESURF_PGD_SEAF_PAR_n
1.8.0
