Changeset 626


Ignore:
Timestamp:
Apr 29, 2005, 4:03:26 PM (20 years ago)
Author:
Laurent Fairhead
Message:

Modifications pour phasage avec OASIS3 AC
LF

Location:
LMDZ4/trunk/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/phylmd/inc_cpl.h

    r524 r626  
    1818      INTEGER jpread, jpwrit
    1919      PARAMETER (jpread=0, jpwrit=1)
     20#ifndef CPP_PSMILE
    2021      CHARACTER*8 cl_writ(jpmaxfld), cl_read(jpmaxfld)
    2122      CHARACTER*8 cl_f_writ(jpmaxfld), cl_f_read(jpmaxfld)
    2223      COMMON / comcpl / cl_writ, cl_read, cl_f_writ, cl_f_read
     24#endif
    2325!     -------------------------------------------------------------------

  • LMDZ4/trunk/libf/phylmd/oasis.psmile

    r524 r626  
    2222   integer, dimension(jpfldo2a), save              :: in_var_id
    2323   integer, dimension(jpflda2o1+jpflda2o2), save  :: il_out_var_id
    24    CHARACTER (len=8), dimension(jpmaxfld), save   :: cl_writ, cl_read
     24   CHARACTER (len=8), dimension(jpmaxfld), public, save   :: cl_writ, cl_read
    2525   CHARACTER (len=8), dimension(jpmaxfld), save   :: cl_f_writ, cl_f_read
    2626
    27 CONTAINS
     27  CONTAINS
    2828
    2929!****
    … …  
    6060!
    6161   integer                                  :: comp_id
    62    integer                                  :: ierror
     62   integer                                  :: ierror, il_commlocal
    6363   integer                                  :: il_part_id
    6464   integer, dimension(:), allocatable       :: ig_paral
    65    integer, dimension(jpfldo2a)             :: in_var_id
    66    integer, dimension(jpflda2o1+jpflda2o2)  :: il_out_var_id
    6765   integer, dimension(2)                    :: il_var_nodims
    6866   integer, dimension(4)                    :: il_var_actual_shape
    … …  
    105103   ENDIF
    106104
     105! PSMILe attribution of local communicator
     106!
     107   call prism_get_localcomm_proto (il_commlocal, ierror)
    107108!
    108109! and domain decomposition
    … …  
    110111! monoproc case
    111112!
    112    allocate(ig_paral(3))
    113    ig_paral(1) = 0
    114    ig_paral(2) = 0
    115    ig_paral(3) = im * jm
     113   allocate(ig_paral(5))
     114   ig_paral (1) = 2
     115   ig_paral (2) = 0
     116   ig_paral (3) = im
     117   ig_paral (4) = jm
     118   ig_paral (5) = im
    116119
    117120   call prism_def_partition_proto (il_part_id, ig_paral, ierror)
    … …  
    131134!         must be the same as (1) of the field  definition in namcouple:
    132135!
    133    cl_writ(1)='COSHFICE'
    134    cl_writ(2)='COSHFOCE'
    135    cl_writ(3)='CONSFICE'
    136    cl_writ(4)='CONSFOCE'
    137    cl_writ(5)='CODFLXDT'
    138    cl_writ(6)='COTFSICE'
    139    cl_writ(7)='COTFSOCE'
    140    cl_writ(8)='COTOLPSU'
    141    cl_writ(9)='COTOSPSU'
    142    cl_writ(10)='CORUNCOA'
    143    cl_writ(11)='CORIVFLU'
    144    cl_writ(12)='COCALVIN'
    145    cl_writ(13)='COTAUXXU'
    146    cl_writ(14)='COTAUYYU'
    147    cl_writ(15)='COTAUZZU'
    148    cl_writ(16)='COTAUXXV'
    149    cl_writ(17)='COTAUYYV'
    150    cl_writ(18)='COTAUZZV'
     136      cl_writ(1)='COTAUXXU'
     137      cl_writ(2)='COTAUYYU'
     138      cl_writ(3)='COTAUZZU'
     139      cl_writ(4)='COTAUXXV'
     140      cl_writ(5)='COTAUYYV'
     141      cl_writ(6)='COTAUZZV'
     142c -- LOOP
     143      cl_writ(7)='COWINDSP'
     144c -- LOOP
     145      cl_writ(8)='COSHFICE'
     146      cl_writ(9)='COSHFOCE'
     147      cl_writ(10)='CONSFICE'
     148      cl_writ(11)='CONSFOCE'
     149      cl_writ(12)='CODFLXDT'
     150      cl_writ(13)='COTFSICE'
     151      cl_writ(14)='COTFSOCE'
     152      cl_writ(15)='COTOLPSU'
     153      cl_writ(16)='COTOSPSU'
     154      cl_writ(17)='CORUNCOA'
     155      cl_writ(18)='CORIVFLU'
     156      cl_writ(19)='COCALVIN'
    151157!
    152158!     Define symbolic name for fields exchanged from coupler to atmosphere,
    … …  
    240246
    241247   call prism_get_proto(in_var_id(1), kt, sst, ierror)
    242    IF (ierror .ne. PRISM_Ok) THEN
     248   IF (ierror .ne. PRISM_Ok .and. ierror.ne.PRISM_Recvd .and. &
     249 &     ierror.ne.PRISM_FromRest &
     250 &     .and. ierror.ne.PRISM_Input .and. ierror.ne.PRISM_RecvOut &
     251 &     .and. ierror.ne.PRISM_FromRestOut) THEN
    243252     WRITE (nuout,*)  cl_read(1), kt   
    244253     abort_message=' Probleme dans prism_get_proto '
    … …  
    246255   endif
    247256   call prism_get_proto(in_var_id(2), kt, gla, ierror)
    248    IF (ierror .ne. PRISM_Ok) THEN
     257   IF (ierror .ne. PRISM_Ok .and. ierror.ne.PRISM_Recvd .and. &
     258 &     ierror.ne.PRISM_FromRest &
     259 &     .and. ierror.ne.PRISM_Input .and. ierror.ne.PRISM_RecvOut &
     260 &     .and. ierror.ne.PRISM_FromRestOut) THEN
    249261     WRITE (nuout,*)  cl_read(2), kt   
    250262     abort_message=' Probleme dans prism_get_proto '
    … …  
    252264   endif
    253265   call prism_get_proto(in_var_id(3), kt, albedo, ierror)
    254    IF (ierror .ne. PRISM_Ok) THEN
     266   IF (ierror .ne. PRISM_Ok .and. ierror.ne.PRISM_Recvd .and. &
     267 &     ierror.ne.PRISM_FromRest &
     268 &     .and. ierror.ne.PRISM_Input .and. ierror.ne.PRISM_RecvOut &
     269 &     .and. ierror.ne.PRISM_FromRestOut) THEN
    255270     WRITE (nuout,*)  cl_read(3), kt   
    256271     abort_message=' Probleme dans prism_get_proto '
    … …  
    258273   endif
    259274   call prism_get_proto(in_var_id(4), kt, tice, ierror)
    260    IF (ierror .ne. PRISM_Ok) THEN
     275   IF (ierror .ne. PRISM_Ok .and. ierror.ne.PRISM_Recvd .and. &
     276 &     ierror.ne.PRISM_FromRest &
     277 &     .and. ierror.ne.PRISM_Input .and. ierror.ne.PRISM_RecvOut &
     278 &     .and. ierror.ne.PRISM_FromRestOut) THEN
    261279     WRITE (nuout,*)  cl_read(4), kt   
    262280     abort_message=' Probleme dans prism_get_proto '
    … …  
    271289 &    fnsicedt, evice, evwat, lpre, spre, dirunoff, rivrunoff, &
    272290 &    calving, tauxx_u, tauyy_u, tauzz_u, tauxx_v, tauyy_v, tauzz_v &
     291c -- LOOP
     292     $    windsp,
     293c -- LOOP
    273294 &    , last)
    274295! ======================================================================
    … …  
    292313   real, dimension(im, jm) :: tauxx_u, tauxx_v, tauyy_u
    293314   real, dimension(im, jm) :: tauyy_v, tauzz_u, tauzz_v
     315   real, dimension(im, jm) :: windsp
    294316   logical               :: last
    295317!
    … …  
    307329      WRITE(nuout,*)
    308330
    309    call prism_put_proto(il_out_var_id(1), kt, fsolice, ierror)
    310    IF (ierror .ne. PRISM_Ok) THEN
     331   call prism_put_proto(il_out_var_id(8), kt, fsolice, ierror)
     332   IF (ierror .ne. PRISM_Ok .and. ierror.ne.PRISM_Sent .and. ierror.ne.PRISM_ToRest &
     333 &     .and. ierror.ne.PRISM_LocTrans .and. ierror.ne.PRISM_Output .and. &
     334 &     ierror.ne.PRISM_SentOut .and. ierror.ne.PRISM_ToRestOut) THEN
     335     WRITE (nuout,*)  cl_writ(8), kt   
     336     abort_message=' Probleme dans prism_put_proto '
     337     call abort_gcm(modname,abort_message,1)
     338   endif
     339   call prism_put_proto(il_out_var_id(9), kt, fsolwat, ierror)
     340   IF (ierror .ne. PRISM_Ok .and. ierror.ne.PRISM_Sent .and. ierror.ne.PRISM_ToRest &
     341 &     .and. ierror.ne.PRISM_LocTrans .and. ierror.ne.PRISM_Output .and. &
     342 &     ierror.ne.PRISM_SentOut .and. ierror.ne.PRISM_ToRestOut) THEN
     343     WRITE (nuout,*)  cl_writ(9), kt   
     344     abort_message=' Probleme dans prism_put_proto '
     345     call abort_gcm(modname,abort_message,1)
     346   endif
     347   call prism_put_proto(il_out_var_id(10), kt, fnsolice, ierror)
     348   IF (ierror .ne. PRISM_Ok .and. ierror.ne.PRISM_Sent .and. ierror.ne.PRISM_ToRest &
     349 &     .and. ierror.ne.PRISM_LocTrans .and. ierror.ne.PRISM_Output .and. &
     350 &     ierror.ne.PRISM_SentOut .and. ierror.ne.PRISM_ToRestOut) THEN
     351     WRITE (nuout,*)  cl_writ(10), kt   
     352     abort_message=' Probleme dans prism_put_proto '
     353     call abort_gcm(modname,abort_message,1)
     354   endif
     355   call prism_put_proto(il_out_var_id(11), kt, fnsolwat, ierror)
     356   IF (ierror .ne. PRISM_Ok .and. ierror.ne.PRISM_Sent .and. ierror.ne.PRISM_ToRest &
     357 &     .and. ierror.ne.PRISM_LocTrans .and. ierror.ne.PRISM_Output .and. &
     358 &     ierror.ne.PRISM_SentOut .and. ierror.ne.PRISM_ToRestOut) THEN
     359     WRITE (nuout,*)  cl_writ(11), kt   
     360     abort_message=' Probleme dans prism_put_proto '
     361     call abort_gcm(modname,abort_message,1)
     362   endif
     363   call prism_put_proto(il_out_var_id(12), kt, fnsicedt, ierror)
     364   IF (ierror .ne. PRISM_Ok .and. ierror.ne.PRISM_Sent .and. ierror.ne.PRISM_ToRest &
     365 &     .and. ierror.ne.PRISM_LocTrans .and. ierror.ne.PRISM_Output .and. &
     366 &     ierror.ne.PRISM_SentOut .and. ierror.ne.PRISM_ToRestOut) THEN
     367     WRITE (nuout,*)  cl_writ(12), kt   
     368     abort_message=' Probleme dans prism_put_proto '
     369     call abort_gcm(modname,abort_message,1)
     370   endif
     371   call prism_put_proto(il_out_var_id(13), kt, evice, ierror)
     372   IF (ierror .ne. PRISM_Ok .and. ierror.ne.PRISM_Sent .and. ierror.ne.PRISM_ToRest &
     373 &     .and. ierror.ne.PRISM_LocTrans .and. ierror.ne.PRISM_Output .and. &
     374 &     ierror.ne.PRISM_SentOut .and. ierror.ne.PRISM_ToRestOut) THEN
     375     WRITE (nuout,*)  cl_writ(13), kt   
     376     abort_message=' Probleme dans prism_put_proto '
     377     call abort_gcm(modname,abort_message,1)
     378   endif
     379   call prism_put_proto(il_out_var_id(14), kt, evwat, ierror)
     380   IF (ierror .ne. PRISM_Ok .and. ierror.ne.PRISM_Sent .and. ierror.ne.PRISM_ToRest &
     381 &     .and. ierror.ne.PRISM_LocTrans .and. ierror.ne.PRISM_Output .and. &
     382 &     ierror.ne.PRISM_SentOut .and. ierror.ne.PRISM_ToRestOut) THEN
     383     WRITE (nuout,*)  cl_writ(14), kt   
     384     abort_message=' Probleme dans prism_put_proto '
     385     call abort_gcm(modname,abort_message,1)
     386   endif
     387   call prism_put_proto(il_out_var_id(15), kt, lpre, ierror)
     388   IF (ierror .ne. PRISM_Ok .and. ierror.ne.PRISM_Sent .and. ierror.ne.PRISM_ToRest &
     389 &     .and. ierror.ne.PRISM_LocTrans .and. ierror.ne.PRISM_Output .and. &
     390 &     ierror.ne.PRISM_SentOut .and. ierror.ne.PRISM_ToRestOut) THEN
     391     WRITE (nuout,*)  cl_writ(15), kt   
     392     abort_message=' Probleme dans prism_put_proto '
     393     call abort_gcm(modname,abort_message,1)
     394   endif
     395   call prism_put_proto(il_out_var_id(16), kt, spre, ierror)
     396   IF (ierror .ne. PRISM_Ok .and. ierror.ne.PRISM_Sent .and. ierror.ne.PRISM_ToRest &
     397 &     .and. ierror.ne.PRISM_LocTrans .and. ierror.ne.PRISM_Output .and. &
     398 &     ierror.ne.PRISM_SentOut .and. ierror.ne.PRISM_ToRestOut) THEN
     399     WRITE (nuout,*)  cl_writ(16), kt   
     400     abort_message=' Probleme dans prism_put_proto '
     401     call abort_gcm(modname,abort_message,1)
     402   endif
     403   call prism_put_proto(il_out_var_id(17), kt, dirunoff, ierror)
     404   IF (ierror .ne. PRISM_Ok .and. ierror.ne.PRISM_Sent .and. ierror.ne.PRISM_ToRest &
     405 &     .and. ierror.ne.PRISM_LocTrans .and. ierror.ne.PRISM_Output .and. &
     406 &     ierror.ne.PRISM_SentOut .and. ierror.ne.PRISM_ToRestOut) THEN
     407     WRITE (nuout,*)  cl_writ(17), kt   
     408     abort_message=' Probleme dans prism_put_proto '
     409     call abort_gcm(modname,abort_message,1)
     410   endif
     411   call prism_put_proto(il_out_var_id(18), kt, rivrunoff, ierror)
     412   IF (ierror .ne. PRISM_Ok .and. ierror.ne.PRISM_Sent .and. ierror.ne.PRISM_ToRest &
     413 &     .and. ierror.ne.PRISM_LocTrans .and. ierror.ne.PRISM_Output .and. &
     414 &     ierror.ne.PRISM_SentOut .and. ierror.ne.PRISM_ToRestOut) THEN
     415     WRITE (nuout,*)  cl_writ(18), kt   
     416     abort_message=' Probleme dans prism_put_proto '
     417     call abort_gcm(modname,abort_message,1)
     418   endif
     419   call prism_put_proto(il_out_var_id(19), kt, calving, ierror)
     420   IF (ierror .ne. PRISM_Ok .and. ierror.ne.PRISM_Sent .and. ierror.ne.PRISM_ToRest &
     421 &     .and. ierror.ne.PRISM_LocTrans .and. ierror.ne.PRISM_Output .and. &
     422 &     ierror.ne.PRISM_SentOut .and. ierror.ne.PRISM_ToRestOut) THEN
     423     WRITE (nuout,*)  cl_writ(19), kt   
     424     abort_message=' Probleme dans prism_put_proto '
     425     call abort_gcm(modname,abort_message,1)
     426   endif
     427   call prism_put_proto(il_out_var_id(1), kt, tauxx_u, ierror)
     428   IF (ierror .ne. PRISM_Ok .and. ierror.ne.PRISM_Sent .and. ierror.ne.PRISM_ToRest &
     429 &     .and. ierror.ne.PRISM_LocTrans .and. ierror.ne.PRISM_Output .and. &
     430 &     ierror.ne.PRISM_SentOut .and. ierror.ne.PRISM_ToRestOut) THEN
    311431     WRITE (nuout,*)  cl_writ(1), kt   
    312432     abort_message=' Probleme dans prism_put_proto '
    313433     call abort_gcm(modname,abort_message,1)
    314434   endif
    315    call prism_put_proto(il_out_var_id(2), kt, fsolwat, ierror)
    316    IF (ierror .ne. PRISM_Ok) THEN
     435   call prism_put_proto(il_out_var_id(2), kt, tauyy_u, ierror)
     436   IF (ierror .ne. PRISM_Ok .and. ierror.ne.PRISM_Sent .and. ierror.ne.PRISM_ToRest &
     437 &     .and. ierror.ne.PRISM_LocTrans .and. ierror.ne.PRISM_Output .and. &
     438 &     ierror.ne.PRISM_SentOut .and. ierror.ne.PRISM_ToRestOut) THEN
    317439     WRITE (nuout,*)  cl_writ(2), kt   
    318440     abort_message=' Probleme dans prism_put_proto '
    319441     call abort_gcm(modname,abort_message,1)
    320442   endif
    321    call prism_put_proto(il_out_var_id(3), kt, fnsolice, ierror)
    322    IF (ierror .ne. PRISM_Ok) THEN
     443   call prism_put_proto(il_out_var_id(3), kt, tauzz_u, ierror)
     444   IF (ierror .ne. PRISM_Ok .and. ierror.ne.PRISM_Sent .and. ierror.ne.PRISM_ToRest &
     445 &     .and. ierror.ne.PRISM_LocTrans .and. ierror.ne.PRISM_Output .and. &
     446 &     ierror.ne.PRISM_SentOut .and. ierror.ne.PRISM_ToRestOut) THEN
    323447     WRITE (nuout,*)  cl_writ(3), kt   
    324448     abort_message=' Probleme dans prism_put_proto '
    325449     call abort_gcm(modname,abort_message,1)
    326450   endif
    327    call prism_put_proto(il_out_var_id(4), kt, fnsolwat, ierror)
    328    IF (ierror .ne. PRISM_Ok) THEN
     451   call prism_put_proto(il_out_var_id(4), kt, tauxx_v, ierror)
     452   IF (ierror .ne. PRISM_Ok .and. ierror.ne.PRISM_Sent .and. ierror.ne.PRISM_ToRest &
     453 &     .and. ierror.ne.PRISM_LocTrans .and. ierror.ne.PRISM_Output .and. &
     454 &     ierror.ne.PRISM_SentOut .and. ierror.ne.PRISM_ToRestOut) THEN
    329455     WRITE (nuout,*)  cl_writ(4), kt   
    330456     abort_message=' Probleme dans prism_put_proto '
    331457     call abort_gcm(modname,abort_message,1)
    332458   endif
    333    call prism_put_proto(il_out_var_id(5), kt, fnsicedt, ierror)
    334    IF (ierror .ne. PRISM_Ok) THEN
     459   call prism_put_proto(il_out_var_id(5), kt, tauyy_v, ierror)
     460   IF (ierror .ne. PRISM_Ok .and. ierror.ne.PRISM_Sent .and. ierror.ne.PRISM_ToRest &
     461 &     .and. ierror.ne.PRISM_LocTrans .and. ierror.ne.PRISM_Output .and. &
     462 &     ierror.ne.PRISM_SentOut .and. ierror.ne.PRISM_ToRestOut) THEN
    335463     WRITE (nuout,*)  cl_writ(5), kt   
    336464     abort_message=' Probleme dans prism_put_proto '
    337465     call abort_gcm(modname,abort_message,1)
    338466   endif
    339    call prism_put_proto(il_out_var_id(6), kt, evice, ierror)
    340    IF (ierror .ne. PRISM_Ok) THEN
     467   call prism_put_proto(il_out_var_id(6), kt, tauzz_v, ierror)
     468   IF (ierror .ne. PRISM_Ok .and. ierror.ne.PRISM_Sent .and. ierror.ne.PRISM_ToRest &
     469 &     .and. ierror.ne.PRISM_LocTrans .and. ierror.ne.PRISM_Output .and. &
     470 &     ierror.ne.PRISM_SentOut .and. ierror.ne.PRISM_ToRestOut) THEN
    341471     WRITE (nuout,*)  cl_writ(6), kt   
    342472     abort_message=' Probleme dans prism_put_proto '
    343473     call abort_gcm(modname,abort_message,1)
    344474   endif
    345    call prism_put_proto(il_out_var_id(7), kt, evwat, ierror)
    346    IF (ierror .ne. PRISM_Ok) THEN
     475   call prism_put_proto(il_out_var_id(7), kt, windsp, ierror)
     476   IF (ierror .ne. PRISM_Ok .and. ierror.ne.PRISM_Sent .and. ierror.ne.PRISM_ToRest &
     477 &     .and. ierror.ne.PRISM_LocTrans .and. ierror.ne.PRISM_Output .and. &
     478 &     ierror.ne.PRISM_SentOut .and. ierror.ne.PRISM_ToRestOut) THEN
    347479     WRITE (nuout,*)  cl_writ(7), kt   
    348      abort_message=' Probleme dans prism_put_proto '
    349      call abort_gcm(modname,abort_message,1)
    350    endif
    351    call prism_put_proto(il_out_var_id(8), kt, lpre, ierror)
    352    IF (ierror .ne. PRISM_Ok) THEN
    353      WRITE (nuout,*)  cl_writ(8), kt   
    354      abort_message=' Probleme dans prism_put_proto '
    355      call abort_gcm(modname,abort_message,1)
    356    endif
    357    call prism_put_proto(il_out_var_id(9), kt, spre, ierror)
    358    IF (ierror .ne. PRISM_Ok) THEN
    359      WRITE (nuout,*)  cl_writ(9), kt   
    360      abort_message=' Probleme dans prism_put_proto '
    361      call abort_gcm(modname,abort_message,1)
    362    endif
    363    call prism_put_proto(il_out_var_id(10), kt, dirunoff, ierror)
    364    IF (ierror .ne. PRISM_Ok) THEN
    365      WRITE (nuout,*)  cl_writ(10), kt   
    366      abort_message=' Probleme dans prism_put_proto '
    367      call abort_gcm(modname,abort_message,1)
    368    endif
    369    call prism_put_proto(il_out_var_id(11), kt, rivrunoff, ierror)
    370    IF (ierror .ne. PRISM_Ok) THEN
    371      WRITE (nuout,*)  cl_writ(11), kt   
    372      abort_message=' Probleme dans prism_put_proto '
    373      call abort_gcm(modname,abort_message,1)
    374    endif
    375    call prism_put_proto(il_out_var_id(12), kt, calving, ierror)
    376    IF (ierror .ne. PRISM_Ok) THEN
    377      WRITE (nuout,*)  cl_writ(12), kt   
    378      abort_message=' Probleme dans prism_put_proto '
    379      call abort_gcm(modname,abort_message,1)
    380    endif
    381    call prism_put_proto(il_out_var_id(13), kt, tauxx_u, ierror)
    382    IF (ierror .ne. PRISM_Ok) THEN
    383      WRITE (nuout,*)  cl_writ(13), kt   
    384      abort_message=' Probleme dans prism_put_proto '
    385      call abort_gcm(modname,abort_message,1)
    386    endif
    387    call prism_put_proto(il_out_var_id(14), kt, tauyy_u, ierror)
    388    IF (ierror .ne. PRISM_Ok) THEN
    389      WRITE (nuout,*)  cl_writ(14), kt   
    390      abort_message=' Probleme dans prism_put_proto '
    391      call abort_gcm(modname,abort_message,1)
    392    endif
    393    call prism_put_proto(il_out_var_id(15), kt, tauzz_u, ierror)
    394    IF (ierror .ne. PRISM_Ok) THEN
    395      WRITE (nuout,*)  cl_writ(15), kt   
    396      abort_message=' Probleme dans prism_put_proto '
    397      call abort_gcm(modname,abort_message,1)
    398    endif
    399    call prism_put_proto(il_out_var_id(16), kt, tauxx_v, ierror)
    400    IF (ierror .ne. PRISM_Ok) THEN
    401      WRITE (nuout,*)  cl_writ(16), kt   
    402      abort_message=' Probleme dans prism_put_proto '
    403      call abort_gcm(modname,abort_message,1)
    404    endif
    405    call prism_put_proto(il_out_var_id(17), kt, tauyy_v, ierror)
    406    IF (ierror .ne. PRISM_Ok) THEN
    407      WRITE (nuout,*)  cl_writ(17), kt   
    408      abort_message=' Probleme dans prism_put_proto '
    409      call abort_gcm(modname,abort_message,1)
    410    endif
    411    call prism_put_proto(il_out_var_id(18), kt, tauzz_v, ierror)
    412    IF (ierror .ne. PRISM_Ok) THEN
    413      WRITE (nuout,*)  cl_writ(18), kt   
    414480     abort_message=' Probleme dans prism_put_proto '
    415481     call abort_gcm(modname,abort_message,1)
    … …  
    419485     call prism_terminate_proto(ierror)
    420486     IF (ierror .ne. PRISM_Ok) THEN
    421        WRITE (nuout,*)  cl_writ(18), kt   
    422487       abort_message=' Probleme dans prism_terminate_proto '
    423488       call abort_gcm(modname,abort_message,1)
Note: See TracChangeset for help on using the changeset viewer.