Changeset 11646


Ignore:
Timestamp:
2019-10-03T14:13:02+02:00 (11 months ago)
Author:
andmirek
Message:

Ticket #2314 changes for GO8 for tests

Location:
NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_decoupled/src/SAS
Files:
2 added
3 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_decoupled/src/SAS/nemogcm.F90

    r10888 r11646  
    5252   CHARACTER(lc) ::   cform_aaa="( /, 'AAAAAAAA', / ) "     ! flag for output listing 
    5353 
     54#if defined key_mpp_mpi 
     55   INCLUDE 'mpif.h' 
     56#endif 
    5457   !!---------------------------------------------------------------------- 
    5558   !! NEMO/SAS 4.0 , NEMO Consortium (2018) 
     
    113116      ! 
    114117      DO WHILE( istp <= nitend .AND. nstop == 0 ) 
     118#if defined key_mpp_mpi 
     119            ncom_stp = istp 
     120            IF ( istp == ( nit000 + 1 ) ) elapsed_time = MPI_Wtime() 
     121            IF ( istp ==         nitend ) elapsed_time = MPI_Wtime() - elapsed_time 
     122#endif 
    115123         CALL stp 
    116124         istp = istp + 1 
     
    128136         ! 
    129137         DO WHILE( istp <= nitend .AND. nstop == 0 ) 
     138#if defined key_mpp_mpi 
     139            ncom_stp = istp 
     140            IF ( istp == ( nit000 + 1 ) ) elapsed_time = MPI_Wtime() 
     141            IF ( istp ==         nitend ) elapsed_time = MPI_Wtime() - elapsed_time 
     142#endif 
    130143            CALL stp        ( istp )  
    131144            istp = istp + 1 
  • NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_decoupled/src/SAS/sbcssm.F90

    r10888 r11646  
    178178      !!---------------------------------------------------------------------- 
    179179      ! 
    180       IF( ln_rstart .AND. nn_components == jp_iam_sas )   RETURN 
     180      !EM disable reading if not restart  
     181      !EM IF( ln_rstart .AND. nn_components == jp_iam_sas )   RETURN 
     182      IF( nn_components == jp_iam_sas )   RETURN 
    181183      ! 
    182184      IF(lwp) THEN 
  • NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_decoupled/src/SAS/stpctl.F90

    r10888 r11646  
    6060      LOGICAL                ::   ll_wrtstp, ll_colruns, ll_wrtruns 
    6161      CHARACTER(len=20) :: clname 
     62      CHARACTER(len=20) :: cfts_name, cfrs_name, cfrsnc_name 
    6263      !!---------------------------------------------------------------------- 
    6364      ! 
     
    7071         WRITE(numout,*) '~~~~~~~' 
    7172         !                                ! open time.step file 
    72          IF( lwm ) CALL ctl_opn( numstp, 'time.step', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea ) 
     73         cfts_name='time.step' 
     74         cfrs_name='run.stat' 
     75         cfrsnc_name='run.stat.nc' 
     76 
     77         IF( TRIM(cxios_context) == 'sas' ) THEN 
     78            WRITE(cfts_name,'(A4,A9)') 'sas_', TRIM(cfts_name) 
     79            WRITE(cfrs_name,'(A4,A8)') 'sas_', TRIM(cfrs_name) 
     80            WRITE(cfrsnc_name,'(A4,A11)') 'sas_', TRIM(cfrsnc_name) 
     81         ENDIF 
     82 
     83         IF( lwm ) CALL ctl_opn( numstp, TRIM(cfts_name), 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea ) 
    7384         !                                ! open run.stat file(s) at start whatever 
    7485         !                                ! the value of sn_cfctl%ptimincr 
    7586         IF( lwm .AND. ( ln_ctl .OR. sn_cfctl%l_runstat ) ) THEN 
    76             CALL ctl_opn( numrun, 'run.stat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea ) 
    77             clname = 'run.stat.nc' 
     87            CALL ctl_opn( numrun, TRIM(cfrs_name), 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea ) 
     88            clname = TRIM(cfrsnc_name) 
    7889            IF( .NOT. Agrif_Root() )   clname = TRIM(Agrif_CFixed())//"_"//TRIM(clname) 
    79             istatus = NF90_CREATE( 'run.stat.nc', NF90_CLOBBER, idrun ) 
     90            istatus = NF90_CREATE( TRIM(cfrsnc_name), NF90_CLOBBER, idrun ) 
    8091            istatus = NF90_DEF_DIM( idrun, 'time'     , NF90_UNLIMITED, idtime ) 
    8192            istatus = NF90_DEF_VAR( idrun, 'vt_i_max' , NF90_DOUBLE, (/ idtime /), idssh ) 
Note: See TracChangeset for help on using the changeset viewer.