New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 2474 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90 – NEMO

Ignore:
Timestamp:
2010-12-16T16:32:33+01:00 (13 years ago)
Author:
djlea
Message:

Update to OBS and ASM documentation. Removal of cpp key options to OBS code. Also moved the diaobs call to after the timestep code in step.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90

    r2358 r2474  
    347347         WRITE(numout,*) 'dia_obs_init : Observation diagnostic initialization' 
    348348         WRITE(numout,*) '~~~~~~~~~~~~' 
    349 #if defined key_datetime_out 
    350          CALL DATE_AND_TIME(datestr,timestr)          
    351          WRITE(numout,*) 'dia_obs_init date_and_time ',datestr,' ',timestr 
    352 #endif 
    353349         WRITE(numout,*) '          Namelist namobs : set observation diagnostic parameters'  
    354350         WRITE(numout,*) '             Logical switch for T profile observations          ln_t3d = ', ln_t3d 
    … …  
    551547         IF ( ln_ena ) THEN 
    552548 
    553 #if defined key_datetime_out 
    554             IF (lwp) THEN 
    555                CALL DATE_AND_TIME(datestr,timestr)          
    556                WRITE(numout,*) 'Read enact date_and_time ',datestr,' ',timestr 
    557             ENDIF 
    558 #endif             
    559549            jprofset = jprofset + 1 
    560550             
    … …  
    649639      !  - Sea level anomalies 
    650640      IF ( ln_sla ) THEN 
    651 #if defined key_datetime_out 
    652          IF (lwp) THEN 
    653             CALL DATE_AND_TIME(datestr,timestr)          
    654             WRITE(numout,*) 'Read SLA date_and_time ',datestr,' ',timestr 
    655          ENDIF 
    656 #endif 
    657          ! Set the number of variables for sla to 1 
     641        ! Set the number of variables for sla to 1 
    658642         nslavars = 1 
    659643 
    … …  
    689673               &              nslavars, nslaextr, nitend-nit000+2, & 
    690674               &              dobsini, dobsend, ln_ignmis, .FALSE. ) 
    691 #if defined key_datetime_out 
    692             IF (lwp) THEN 
    693                CALL DATE_AND_TIME(datestr,timestr)          
    694                WRITE(numout,*) 'obs_pre_sla date_and_time ',datestr,' ',timestr 
    695             ENDIF 
    696 #endif 
    697675            CALL obs_pre_sla( sladata(nslasets), sladatqc(nslasets), & 
    698676               &              ln_sla, ln_nea ) 
    … …  
    702680            nslasets = nslasets + 1 
    703681             
    704 #if defined key_datetime_out 
    705             IF (lwp) THEN 
    706                CALL DATE_AND_TIME(datestr,timestr)          
    707                WRITE(numout,*) 'obs_pre_sla date_and_time ',datestr,' ',timestr 
    708             ENDIF 
    709 #endif 
    710682            CALL obs_rea_sla( 1, sladata(nslasets), jnumslapas, & 
    711683               &              slafilespas(1:jnumslapas), & 
    … …  
    713685               &              dobsini, dobsend, ln_ignmis, .FALSE. ) 
    714686             
    715 #if defined key_datetime_out 
    716             IF (lwp) THEN 
    717                CALL DATE_AND_TIME(datestr,timestr)          
    718                WRITE(numout,*) 'obs_pre_sla date_and_time ',datestr,' ',timestr 
    719             ENDIF 
    720 #endif 
    721687            CALL obs_pre_sla( sladata(nslasets), sladatqc(nslasets), & 
    722688               &              ln_sla, ln_nea ) 
    … …  
    736702                  &              nslavars, nslaextr, nitend-nit000+2, & 
    737703                  &              dobsini, dobsend, ln_ignmis, .FALSE. ) 
    738 #if defined key_datetime_out 
    739                IF (lwp) THEN 
    740                   CALL DATE_AND_TIME(datestr,timestr)          
    741                   WRITE(numout,*) 'obs_pre_sla date_and_time ',datestr,' ',timestr 
    742                ENDIF 
    743 #endif 
    744704               CALL obs_pre_sla( sladata(nslasets), sladatqc(nslasets), & 
    745705                  &              ln_sla, ln_nea ) 
    … …  
    749709         ENDIF 
    750710          
    751 #if defined key_datetime_out 
    752          IF (lwp) THEN 
    753             CALL DATE_AND_TIME(datestr,timestr)          
    754             WRITE(numout,*) 'obs_rea_mdt date_and_time ',datestr,' ',timestr 
    755          ENDIF 
    756 #endif 
    757711         CALL obs_rea_mdt( nslasets, sladatqc, n2dint ) 
    758712             
    … …  
    772726      !  - Sea surface temperature 
    773727      IF ( ln_sst ) THEN 
    774 #if defined key_datetime_out 
    775          IF (lwp) THEN 
    776             CALL DATE_AND_TIME(datestr,timestr)          
    777             WRITE(numout,*) 'Read SST date_and_time ',datestr,' ',timestr 
    778          ENDIF 
    779 #endif 
    780728 
    781729         ! Set the number of variables for sst to 1 
    … …  
    820768               &              nsstvars, nsstextr, nitend-nit000+2, & 
    821769               &              dobsini, dobsend, ln_ignmis, .FALSE. ) 
    822 #if defined key_datetime_out 
    823             IF (lwp) THEN 
    824                CALL DATE_AND_TIME(datestr,timestr)          
    825                WRITE(numout,*) 'obs_pre_sst date_and_time ',datestr,' ',timestr 
    826             ENDIF 
    827 #endif 
    828770            CALL obs_pre_sst( sstdata(nsstsets), sstdatqc(nsstsets), ln_sst, & 
    829771               &              ln_nea ) 
    … …  
    843785                  &              nsstvars, nsstextr, nitend-nit000+2, & 
    844786                  &              dobsini, dobsend, ln_ignmis, .FALSE. ) 
    845 #if defined key_datetime_out 
    846                IF (lwp) THEN 
    847                   CALL DATE_AND_TIME(datestr,timestr)          
    848                   WRITE(numout,*) 'obs_pre_sst date_and_time ',datestr,' ',timestr 
    849                ENDIF 
    850 #endif 
    851787               CALL obs_pre_sst( sstdata(nsstsets), sstdatqc(nsstsets), & 
    852788                  &              ln_sst, ln_nea ) 
    … …  
    866802       
    867803      IF ( ln_seaice ) THEN 
    868  
    869 #if defined key_datetime_out 
    870          IF (lwp) THEN 
    871             CALL DATE_AND_TIME(datestr,timestr)          
    872             WRITE(numout,*) 'Read sea ice data date_and_time ',datestr,' ',timestr 
    873          ENDIF 
    874 #endif 
    875804 
    876805         ! Set the number of variables for seaice to 1 
    … …  
    892821            &                 nseaicevars, nseaiceextr, nitend-nit000+2, & 
    893822            &                 dobsini, dobsend, ln_ignmis, .FALSE. ) 
    894  
    895 #if defined key_datetime_out 
    896          IF (lwp) THEN 
    897             CALL DATE_AND_TIME(datestr,timestr)          
    898             WRITE(numout,*) 'obs_pre_seaice date_and_time ',datestr,' ',timestr 
    899          ENDIF 
    900 #endif 
    901823 
    902824         CALL obs_pre_seaice( seaicedata(nseaicesets), seaicedatqc(nseaicesets), & 
    … …  
    1060982 
    1061983      ENDIF 
    1062  
    1063 #if defined key_datetime_out 
    1064       IF (lwp) THEN 
    1065          CALL DATE_AND_TIME(datestr,timestr)          
    1066          WRITE(numout,*) 'end dia_obs_init date_and_time ',datestr,' ',timestr 
    1067       ENDIF 
    1068 #endif 
    1069984      
    1070985   END SUBROUTINE dia_obs_init 
    … …  
    11331048         WRITE(numout,*) 'dia_obs : Call the observation operators', kstp 
    11341049         WRITE(numout,*) '~~~~~~~' 
    1135 #if defined key_datetime_out 
    1136          CALL DATE_AND_TIME(datestr,timestr)          
    1137       WRITE(numout,*) 'dia_obs date_and_time ',datestr,' ',timestr 
    1138 #endif 
    11391050      ENDIF 
    11401051 
    … …  
    12101121      ENDIF 
    12111122 
    1212 #if defined key_datetime_out 
    1213       IF(lwp) THEN 
    1214          CALL DATE_AND_TIME(datestr,timestr)          
    1215          WRITE(numout,*) 'dia_obs finished date_and_time ',datestr,' ',timestr 
    1216       ENDIF 
    1217 #endif 
    1218  
    12191123   END SUBROUTINE dia_obs 
    12201124   
    … …  
    12531157      !----------------------------------------------------------------------- 
    12541158 
    1255 #if defined key_datetime_out 
    1256       IF (lwp) THEN 
    1257          CALL DATE_AND_TIME(datestr,timestr)          
    1258          WRITE(numout,*) 'dia_obs_wri date_and_time ',datestr,' ',timestr 
    1259       ENDIF 
    1260 #endif 
    1261  
    12621159      !  - Temperature/salinity profiles 
    12631160 
    … …  
    12751172 
    12761173         jprofset = 0 
    1277            
    12781174 
    12791175         ! ENACT insitu data 
    … …  
    14981394          
    14991395      ENDIF 
    1500  
    1501 #if defined key_datetime_out 
    1502       IF (lwp) THEN 
    1503          CALL DATE_AND_TIME(datestr,timestr)          
    1504          WRITE(numout,*) 'dia_obs_wri end date_and_time ',datestr,' ',timestr 
    1505       ENDIF 
    1506 #endif 
    15071396 
    15081397   END SUBROUTINE dia_obs_wri 
Note: See TracChangeset for help on using the changeset viewer.